VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "clsSParameter"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit

Private oDict As New Dictionary
Private Sub Class_Initialize()
    oDict.RemoveAll
End Sub

Private Sub Class_Terminate()
    Set oDict = Nothing
End Sub

Public Function GetParameterString(ByVal sKey As String) As String
    On Error Resume Next
    If oDict.Exists(sKey) = True Then
        GetParameterString = oDict.item(sKey)
    Else
        oDict.Add sKey, ""
    End If
End Function

Public Function SetParameterString(ByVal sKey As String, ByVal sValue As String) As Boolean
    If oDict.Exists(sKey) = True Then
        oDict.item(sKey) = sValue
    Else
        oDict.Add sKey, sValue
    End If
End Function

